function ber=test_sphere_detector_qpsk(antennas)

if(nargin<1)
antennas=[8];
end

power=10;	%total power being transmitted
noise=.001;	%noise at each receiver
rho=power/noise;

for a=1:length(antennas)
	[s,byte_sequence]=transmit_qpsk_gray(word2bin('he'),antennas(a));
	h_uncorr=uncorrelated_channel(antennas(a),antennas(a));
	v=noise*randn(antennas(a),1) + j*noise*randn(antennas(a),1);
	ber=blast_accuracy(byte_sequence,blast_detection(1,h_uncorr,s,v,rho,antennas(a)));
end

